home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / sys / test1.t < prev    next >
Text File  |  1989-06-30  |  291b  |  12 lines
  1. (herald test (env tsys))
  2.  
  3. (define (fac x)
  4.   (if (fx< x 1) 1 (fx* x (fac (fx- x 1)))))
  5.  
  6.  
  7. (define (*boot*)
  8.   (t_printf "answer is %d\n" (fac 4))
  9.   (t_exit 0))
  10.  
  11. (define-foreign t_printf ("printf" (in rep/string) (in rep/integer)) ignore)
  12. (define-foreign t_exit ("exit" (in rep/integer)) ignore)